home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / misc / math / gpamiga_1_38_3.lha / examples / lucas.gp < prev    next >
Encoding:
Text File  |  1993-08-05  |  52 b   |  1 lines

  1. lucas(p,q,u)=q=2^p-1;u=4;for(k=3,p,u=(u*u-2)%q);u==0